home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh8x / sh84a.d64 / tiny eprommer (.txt) < prev   
Encoding:
Commodore BASIC  |  1995-03-30  |  9.6 KB  |  386 lines
  1. 0 REM**********************************      *      TINY EPROMMER V 2.0       *
  2. 1 REM*      -------------------       *      * 1987 RUEDIGER STAHL            *
  3. 2 REM*      HURTENSTR. 20             *      *      8138 FRIEDING-ANDECHS     *
  4. 3 REM*                                *      *                                *
  5. 9 REM**********************************
  6. 10 :
  7. 20 PRINT"[147]":POKE52,48:POKE56,48:POKE51,0:POKE55,0:POKE46,46:POKE45,150:CLR
  8. 30 IFPEEK(49152)=32ANDPEEK(49400)=169THEN50
  9. 40 PRINT"[147] TINY EPROMMER V2.0":PRINT" BY RUEDIGER STAHL
  10. 41 [153]" HURTENSTR. 20":[153]" 8138 FRIEDING-ANDECHS
  11. 45 LOAD"MA.TINY EPROMMER",8,1
  12. 50 LM=49152:DR=49296:BL=49464:BS=49514:CO=49606:CL=49716:FI=49848
  13. 55 SYS49768
  14. 59 REM TYPEN
  15. 60 DIMT$(5),AL$(3)
  16. 61 T$(0)="2764 / 21 V "
  17. 62 T$(1)="27128/ 21 V "
  18. 63 T$(2)="27256/12.5 V"
  19. 64 T$(3)="8 KB /12.5 V"
  20. 65 T$(4)="16 KB/12.5 V"
  21. 66 T$(5)="32 KB/ 21 V "
  22. 70 AL$(0)=" TURBO SPEED   "
  23. 71 AL$(1)=" FAST & SECURE "
  24. 72 AL$(2)="STANDARD  50 MS"
  25. 80 EI%=16
  26. 90 IFPEEK(820)<>0THENAL=INT(PEEK(820)/16):TY=PEEK(820)-AL*16
  27. 91 IFTY>5THENTY=0
  28. 92 IFAL>2THENAL=0
  29. 99 :
  30. 100 REM * HAUPTMENUE
  31. 105 POKE53280,5:POKE53281,0:POKE650,0:SYSCL
  32. 110 PRINT"[153]>>>       TINY EPROMMER V2.0         <<<";
  33. 120 PRINT"----------------------------------------"
  34. 130 PRINT" BITTE WAEHLEN:"
  35. 140 PRINTTAB(6)"'F1' = EPROM BRENNEN
  36. 145 [153][163]6)"'F3' = TYP/ALLGORITHMUS WAEHLEN
  37. 150 PRINTTAB(6)"'F5' = FILES/DIREKTORY
  38. 155 [153][163]6)"'F7' = ZURUECK ZU BASIC
  39. 160 PRINTTAB(6)"'F2' = EPROM LEERTEST
  40. 170 [153][163]6)"'F4' = EPROM AUSLESEN
  41. 180 PRINTTAB(6)"'F6' = EPROM VERIFY
  42. 190 [153][163]6)"'F8' = TOOLS
  43. 200 PRINT"----------------------------------------";
  44. 210 PRINT">>> "T$(TY)" MIT "AL$(AL)" <<[157]"CHR$(148)"<";
  45. 220 T=TY:VP=0:IFT>1ANDT<5THENVP=1
  46. 230 IFT>2THENT=T-3
  47. 250 REM *** AUSWAHL
  48. 260 GETA$:IFA$=""THEN260
  49. 270 A=ASC(A$):IFA<133ORA>140THEN260
  50. 280 ONA-132GOSUB 1000,2000,3000,4000,5000,6000,7000,8000
  51. 390 GOTO100
  52. 1000 REM *** BRENNEN
  53. 1010 SYSCL
  54. 1015 PRINT" BITTE WAEHLEN:
  55. 1020 [153][163]6)"'F1' = ZURUECK
  56. 1025 PRINTTAB(6)"'F3' = SPEICHERINHALT BRENNEN
  57. 1030 [153][163]6)"'F5' = EINZELBYTEPROGRAMMIERUNG
  58. 1050 GETA$:IFA$=""THEN1050
  59. 1055 A=ASC(A$):IFA<133ORA>138THEN1050
  60. 1060 SYSCL
  61. 1065 ONA-132GOTO 1100,1200,1300
  62. 1100 RETURN
  63. 1200 SYSCL:PRINT"SPEICHERINHALT IN EPROM BRENNEN:"
  64. 1205 D=8192*2^T-1:GOSUB1500:GOSUB1600
  65. 1206 IFE1-A1<>E2-A2THEN1200
  66. 1210 PRINT"EPROM-TYP:  ";T$(TY)
  67. 1220 PRINT"ALLGORITHMUS:";AL$(AL)
  68. 1225 GOSUB50050:IFA$="N"THEN1200
  69. 1230 SYSCL:PRINT"      *** EPROM WIRD GEBRANNT ***"
  70. 1240 SYS49920,AL,VP,T,A1,A2,E2
  71. 1245 IFPEEK(2)>0THENGOSUB50700
  72. 1250 GOSUB50010
  73. 1260 RETURN
  74. 1300 SYSCL:PRINT"EIN BYTE PROGRAMMIEREN:"
  75. 1305 PRINT"EPROMADRESSE (HEX) ? 0000";:A$="0000":GOSUB50120
  76. 1310 GOSUB50400:A2=A:IFA<0ORA>8192*2^T-1THEN1300
  77. 1315 PRINT"WERT         (HEX) ? 00";:A$="00":GOSUB50120:A$="00"+A$
  78. 1320 GOSUB50400:IFA<0ORA>255THEN1300
  79. 1340 GOSUB50050:IFA$="N"THEN1300
  80. 1350 A1=53247:POKEA1,A:E1=A1:E2=A2
  81. 1360 PRINT"EPROM-TYP:  ";T$(TY)
  82. 1365 PRINT"ALLGORITHMUS:";AL$(AL)
  83. 1370 GOSUB50050:IFA$="N"THEN1300
  84. 1375 GOSUB1230
  85. 1395 GOTO1000
  86. 1500 PRINT"ADRESSEN IM COMPUTER (HEX):"
  87. 1505 A$="3000":PRINT"ANFANGSADRESSE ? "A$;:GOSUB50120
  88. 1510 GOSUB50400:GOSUB50600
  89. 1511 A1=A:IFA=0THENPRINT"[145][145][145]":GOTO1505
  90. 1515 A=A1+D:GOSUB50600:IFA=0THENA=49151
  91. 1516 GOSUB50500
  92. 1520 PRINT"ENDADRESSE     ? "A$;:GOSUB50120
  93. 1530 GOSUB50400:GOSUB50600
  94. 1531 IFA1<49152ANDA>57334THENA=0
  95. 1540 E1=A:IFA=0ORA<A1THENPRINT"[145][145][145][145]":GOTO1505
  96. 1545 D=A-A1:RETURN
  97. 1600 PRINT"ADRESSEN IM EPROM (HEX):"
  98. 1605 A$="0000":PRINT"ANFANGSADRESSE ? "A$;:GOSUB50120
  99. 1610 GOSUB50400:A2=A
  100. 1611 IFA>8192*2^T-1ORA<0THENPRINT"[145][145][145]":GOTO1605
  101. 1615 A=A2+D:IFA>8192*2^T-1THENA=8192*2^T-1
  102. 1618 GOSUB50500
  103. 1620 PRINT"ENDADRESSE     ? "A$;:GOSUB50120
  104. 1630 GOSUB50400:E2=A
  105. 1635 IFA>8192*2^T-1THENA=A2-1
  106. 1640 E2=A:IFA<A2THENPRINT"[145][145][145][145]":GOTO1505
  107. 1645 D=A-A2:RETURN
  108. 2000 REM *** TYP/ALLGORITHMUS
  109. 2010 SYSCL:T=TY
  110. 2015 PRINT" EPROMTYP UND ALLGORITHMUS WAEHLEN:"
  111. 2020 PRINTTAB(6)"'F1' = ZURUECK
  112. 2025 [153][163]6)"MIT CURSERTASTEN AUSWAHLEN
  113. 2030 PRINTTAB(6)"MIT RETURN ABSPEICHERN
  114. 2050 [153]"";
  115. 2060 [129]A[178]0[164]5:[139]T[178]A[167][153]"";
  116. 2065 [139]A[177]2[167][153]" SPEZALTYPEN: "T$(A)" ":[137]2075
  117. 2070 [153]"       ";T$(A);"        "
  118. 2075 [130]
  119. 2100 [161]A$
  120. 2105 [139]A$[178]"INPUT"[167]2300
  121. 2106 [139]A$[178][199](13)[167]2200
  122. 2110 [139]A$[178]"ON"[167]T[178]T[171]1:[139]T[179]0[167]T[178]5
  123. 2115 [139]A$[178]""[167]T[178]T[170]1:[139]T[177]5[167]T[178]0
  124. 2120 [137]2050
  125. 2200 [153]"";
  126. 2210 [129]A[178]0[164]2
  127. 2215 [139]AL[178]A[167][153]"";
  128. 2220 [153]"      ";AL$(A);"      "
  129. 2225 [130]
  130. 2250 [161]A$
  131. 2255 [139]A$[178]"INPUT"[176]A$[178][199](13)[167]2300
  132. 2265 [139]A$[178]"ON"[167]AL[178]AL[171]1:[139]AL[179]0[167]AL[178]2
  133. 2270 [139]A$[178]""[167]AL[178]AL[170]1:[139]AL[177]2[167]AL[178]0
  134. 2290 [137]2200
  135. 2300 [151]820,T[170]AL[172]16:TY[178]T:[142]
  136. 3000 [143] *** FILES/DIREKTORY
  137. 3010 [158]CL
  138. 3015 [153]" BITTE WAEHLEN:"
  139. 3020 [153][163]6)"'F1' = ZURUECK
  140. 3025 PRINTTAB(6)"'F3' = DIREKTORY
  141. 3030 [153][163]6)"'F5' = PROGRAMM LADEN
  142. 3035 PRINTTAB(6)"'F7' = PROGRAMM SAVEN           [160]
  143. 3040 [153][163]6)"'F2' = FLOPPY BEFEHL            CLOSE
  144. 3045 PRINTTAB(6)"'F4' = FEHLERKANAL            [160]
  145. 3050 [161]A$:[139]A$[178]""[167]3050
  146. 3055 A[178][198](A$):[139]A[179]133[176]A[177]138[167]3050
  147. 3060 [158]CL
  148. 3065 [145]A[171]132[137] 3100,3200,3300,3400,3500,3600
  149. 3100 [142]
  150. 3200 :
  151. 3205 [158]DR
  152. 3210 [141]50010
  153. 3220 [137]3000
  154. 3300 [158]CL
  155. 3305 [153]"LOAD PROGRAMM:":[141]3310:[137]3350
  156. 3310 [153]"FILENAME ? ";
  157. 3315 [141]50100:N$[178]A$:[139]N$[178]""[167]3000
  158. 3316 [139]N$[178]""[167][153]"ONONON":[137]3310
  159. 3320 A$[178]"8":[153]"GERAETEADRESSE ? "A$;
  160. 3325 [141]50120:G[178][197](A$)
  161. 3326 [139]G[179]1[176]G[177]15[167][153]"ONONON":[137]3320
  162. 3330 [142]
  163. 3335 :
  164. 3350 [139]N$[178]""[167][142]
  165. 3351 [139]N$[178]"$"[167]3200
  166. 3354 [153]"UNZULAESSIGE BEREICHE:"
  167. 3355 [153]" $0000-$2FFF UND $C000-$DFFF"
  168. 3360 A$[178]"3000":[153]"ANFANGSADRESSE (HEX) ? ";A$;
  169. 3365 [141]50120:[141]50400
  170. 3370 [141]50600:[139]A[178]0[167]3300
  171. 3380 [141]50050:[139]A$[178]"N"[167][158]CL:[137]3300
  172. 3390 [158]BL,N$,G,A
  173. 3391 [139]ST[179][177]64[167][153]" I/O-ERROR":[137]3394
  174. 3392 A[178][194](781)[170][194](782)[172]256[171]1:[141]50500:[153]" PROGRAMMENDE: $";A$
  175. 3394 [141]50010
  176. 3395 [139][194](49152)[178]32[175][194](49400)[178]169[167]3399
  177. 3396 [153]" PROGRAMM ZU LANG
  178. 3397 PRINT" EPROMER DISKETTE EINLEGEN":GOSUB50010:LOAD"MA.TINY EPROMER",8,1
  179. 3399 GOTO3000
  180. 3400 SYSCL
  181. 3405 PRINT"SAVE PROGRAMM:":GOSUB3310
  182. 3406 IFN$=""THEN3000
  183. 3410 PRINT"ANFANGSADRESSE (HEX) ? ";
  184. 3420 GOSUB50100:GOSUB50400
  185. 3430 IFA=-1THEN3400
  186. 3435 B=A
  187. 3440 PRINT"ENDADRESSE (HEX)     ? ";
  188. 3445 GOSUB50100:GOSUB50400
  189. 3450 A=A+1:IFA>65535THENPRINT"LETZTES BYTE GEHT VERLOHREN":A=65535
  190. 3460 GOSUB50050:IFA$="N"THENSYSCL:GOTO3400
  191. 3470 SYSBS,N$,G,B,A
  192. 3471 IFST<>0THENPRINT" I/O-ERROR":GOSUB50010
  193. 3475 GOTO3000
  194. 3500 :
  195. 3505 PRINT"FLOPPY-BEFEHL:";
  196. 3510 EI%=25:GOSUB50100
  197. 3520 OPEN1,8,15,A$:CLOSE1
  198. 3600 :
  199. 3605 OPEN1,8,15:PRINT"DISK-STATUS:  ";
  200. 3610 GET#1,A$:PRINTA$;:IF(ST AND64)=0GOTO3610
  201. 3615 CLOSE1:GOSUB50010:GOTO3000
  202. 3620 :
  203. 4000 REM *** BASIC
  204. 4005 SYSCL:PRINT"PROGRAMM BENENDEN:
  205. 4010 [141]50050:[139]A$[178]"N"[167][142]
  206. 4020 [158]49816:[128]:[138]
  207. 5000 [143] *** EPROM LEERTEST
  208. 5010 [158]CL:[153]"EPROM LEERTEST: (VERGLEICH MIT $FF)
  209. 5020 GOSUB50050:IFA$="N"THENRETURN
  210. 5030 SYS49929,T,0,0,8192*2^T
  211. 5035 IFPEEK(2)=15THENPRINT" EPROM NICHT GELOESCHT !":GOSUB50700
  212. 5036 IFPEEK(2)=0THENPRINT" EPROM GELOESCHT !"
  213. 5040 GOSUB50010:RETURN
  214. 6000 REM *** EPROM AUSLESEN
  215. 6010 SYSCL
  216. 6015 PRINT" BITTE WAEHLEN:
  217. 6020 [153][163]6)"'F1' = ZURUECK
  218. 6025 PRINTTAB(6)"'F3' = EPROMINHALT IN COM-
  219. 6026 [153][163]13)"PUTER EINLESEN
  220. 6030 PRINTTAB(6)"'F5' = EINZELBYTEAUSLESE
  221. 6050 [161]A$:[139]A$[178]""[167]6050
  222. 6055 A[178][198](A$):[139]A[179]133[176]A[177]135[167]6050
  223. 6060 [158]CL
  224. 6070 [145]A[171]132[137]6100,6200,6300
  225. 6100 [142]
  226. 6200 [158]CL:[153]"EPROMINHALT IN COMPUTER EINLESEN:
  227. 6205 D=8192*2^T-1:GOSUB1600:GOSUB1500
  228. 6206 IFE1-A1<>E2-A2THEN6200
  229. 6225 GOSUB50050:IFA$="N"THEN6200
  230. 6230 SYS49923,T,A1,A2,E2
  231. 6240 GOSUB50010:RETURN
  232. 6300 SYSCL:PRINT"EIN BYTE AUSLESEN:
  233. 6305 [153]"EPROMADRESSE (HEX) ? 0000_CMD";:A$[178]"0000":[141]50120
  234. 6310 [141]50400:A2[178]A:[139]A[179]0[176]A[177]8192[172]2[174]T[171]1[167]6300
  235. 6340 [141]50050:[139]A$[178]"N"[167]6300
  236. 6350 A1[178]53247:[158]49923,T,A1,A2,A2
  237. 6355 A[178][194](A1):[141]50500:[153]"WERT:";[194](A1);"= $";A$
  238. 6360 [141]50010:[137]6000
  239. 7000 [143] *** EPROM VERIFY
  240. 7100 [158]CL:[153]"EPROMINHALT MIT COMPUTER VERGLEICHEN:
  241. 7105 D=8192*2^T-1:GOSUB1600:GOSUB1500
  242. 7106 IFE1-A1<>E2-A2THEN7100
  243. 7125 GOSUB50050:IFA$="N"THEN7100
  244. 7130 SYS49926,T,A1,A2,E2
  245. 7135 IFPEEK(2)=15THENPRINT" VERIFY ERROR !":GOSUB50700:GOTO7140
  246. 7136 PRINT" EPROMINHALT CORRECT !"
  247. 7140 GOSUB50010:RETURN
  248. 8000 REM *** TOOLS
  249. 8010 SYSCL
  250. 8015 PRINT" BITTE WAEHLEN:"
  251. 8020 PRINTTAB(6)"'F1' = ZURUECK
  252. 8025 [153][163]6)"'F3' = MODULGENERATOR
  253. 8030 PRINTTAB(6)"'F5' = TINY-MON
  254. 8035 [153][163]6)"'F7' = SPEICHERBER. VERSCHIEBEN
  255. 8040 PRINTTAB(6)"'F2' = SPEICHERBER. FUELLEN
  256. 8050 [161]A$:[139]A$[178]""[167]8050
  257. 8055 A[178][198](A$):[139]A[179]133[176]A[177]137[167]8050
  258. 8060 [158]CL
  259. 8065 [145]A[171]132[137] 8100,8200,8300,8110,8120
  260. 8100 [142]
  261. 8110 [141]8450:[137]8000
  262. 8120 [141]8600:[137]8000
  263. 8200 [158]CL:[153]" MODULSTARTGENERATOR WIRD NACHGELADEN.
  264. 8210 GOSUB50050:IFA$="N"THENRETURN
  265. 8220 SYS49816
  266. 8230 LOAD"MODULGEN. V2.0",8
  267. 8300 SYSCL:POKE650,128:AD=12288:PRINT" TINY-MON:
  268. 8305 [153]"  'F1' = ZURUECK
  269. 8308 PRINT"  'F3' = TRANSVER
  270. 8309 [153]"  'F4' = SPEICHERBEREICH FUELLEN
  271. 8310 PRINT"  'F5'/'F7';'F6'/'F8';CRSR = SCROLL
  272. 8315 [153]"  RETURN = WERT ABSPEICHERN
  273. 8350 SYSLM,AD
  274. 8360 PRINT"[145][145][145][145]_[157][157][157]";
  275. 8370 GETA$:IFA$=""THEN8370
  276. 8371 IFA$="[133]"THENPOKE650,0:RETURN
  277. 8372 IFASC(A$)>47ANDASC(A$)<58THEN8395
  278. 8373 IFASC(A$)>64ANDASC(A$)<71THEN8395
  279. 8374 IFASC(A$)=13THEN8400
  280. 8378 IFA$="[134]"THENGOSUB8450:GOTO8300
  281. 8379 IFA$="[138]"THENGOSUB8600:GOTO8300
  282. 8380 IFA$="[135]"THENAD=AD-80
  283. 8381 IFA$="[136]"THENAD=AD+80
  284. 8382 IFA$="[139]"THENAD=AD-1024
  285. 8383 IFA$="[140]"THENAD=AD+1024
  286. 8384 IFA$="[145]"THENAD=AD-8
  287. 8385 IFA$=""THENAD=AD+8
  288. 8386 IFA$=""THENAD=AD+1
  289. 8387 IFA$="[157]"THENAD=AD-1
  290. 8388 IFAD<0THENAD=65535
  291. 8389 IFAD>65535THENAD=0
  292. 8390 W$="":GOTO8350
  293. 8395 IFW$=""THENW$=" "
  294. 8398 W$=W$+A$:IFLEN(W$)>2THENW$=RIGHT$(W$,2)
  295. 8399 PRINTW$"[157][157]";:GOTO8370
  296. 8400 IFW$=""THEN8410
  297. 8401 IFLEFT$(W$,1)=" "THENW$="0"+RIGHT$(W$,1)
  298. 8405 A$="00"+W$:GOSUB50400:POKEAD+16,A
  299. 8410 AD=AD+1:W$="":GOTO8350
  300. 8420 :
  301. 8450 REM TRANSVER
  302. 8455 SYSCL
  303. 8460 PRINT" TRANSVER (HEX):"
  304. 8465 PRINT" VON: ";:GOSUB50100:IFA$=""THENRETURN
  305. 8470 GOSUB50400:A1=A:IFA<0THEN8450
  306. 8475 PRINT" BIS: ";:GOSUB50100:IFA$=""THENRETURN
  307. 8480 GOSUB50400:E1=A:IFA<0THEN8450
  308. 8485 PRINT" NACH:";:GOSUB50100:IFA$=""THENRETURN
  309. 8490 GOSUB50400:A2=A:IFA<0THEN8450
  310. 8500 A$="06":PRINT" SPEICHERKONFIGURATION (AUCH HEX): ";A$;:EI%=2
  311. 8501 GOSUB50120:IFA$=""THENRETURN
  312. 8505 A$="00"+A$:GOSUB50400:IFA<0THEN84505
  313. 8540 E1=E1+1:IFE1>65535THENE1=E1-65536
  314. 8550 SYSCO,A1,E1,A2,A
  315. 8560 RETURN
  316. 8600 REM FILL
  317. 8605 SYSCL
  318. 8610 PRINT" SPEICHERBEREICH FUELLEN (HEX):"
  319. 8615 PRINT" (GREIFT IMMER AUF RAM ZU !)
  320. 8620 [153]" VON: ";:[141]50100:[139]A$[178]""[167][142]
  321. 8630 [141]50400:A1[178]A:[139]A[179]0[167]8600
  322. 8640 [153]" BIS: ";:[141]50100:[139]A$[178]""[167][142]
  323. 8650 [141]50400:E1[178]A:[139]A[179]0[167]8600
  324. 8660 A$[178]"FF":[153]" WERT:";A$;:EI%[178]2
  325. 8665 [141]50120:[139]A$[178]""[167][142]
  326. 8670 A$[178]"00"[170]A$:[141]50400:[139]A[179]0[167]8600
  327. 8680 E1[178]E1[170]1:[139]E1[177]65535[167]E1[178]E1[171]65536
  328. 8690 [158]FI,A1,E1,A
  329. 8695 [142]
  330. 8700 :
  331. 50000 [143] *** UNTERROUTINEN
  332. 50010 [143] AUF TASTENDRUCK WARTEN
  333. 50020 [151]198,0
  334. 50025 [139][194](214)[177]21[167][153]""
  335. 50030 [153]:[153]"        T A S T E   D R U E C K E N    "
  336. 50045 [146]198,1,0:[151]198,0:[142]
  337. 50050 [143] EINGABE OK ?
  338. 50060 [151]198,0
  339. 50070 [153]:[153]"   A L L E S   OCLOSEK ACLOSEY   (J/N)  ?      WAIT"
  340. 50075 [146]198,1,0:[161]A$
  341. 50080 [139]A$[179][177]"J"[175]A$[179][177]"N"[167]50075
  342. 50085 [142]
  343. 50100 [143] INPUT VON 16 ZEICHEN
  344. 50110 A$[178]"":
  345. 50120 [153]"_CMD";:[161]B$:[139]B$[179][177]""[167]50130
  346. 50122 [129]A[178]0[164]80:[130]:[153]"_WAITCMD";
  347. 50125 [161]B$:[139]B$[179][177]""[167]50130
  348. 50127 [129]A[178]0[164]80:[130]:[137]50120
  349. 50130 [139][198](B$)[178]13[167][153]"_":EI%[178]16:[142]
  350. 50140 [139][198](B$)[177]31[175][198](B$)[179]128[167]50200
  351. 50150 [139][198](B$)[177]161[167]50200
  352. 50160 [139]B$[179][177][199](20)[175]B$[179][177]"CMD"[167]50120
  353. 50170 [139][195](A$)[179]1[167]50120
  354. 50180 A$[178][200](A$,[195](A$)[171]1)
  355. 50190 [153]" CMDCMD_CMD";
  356. 50195 [137]50120
  357. 50200 [139][195](A$)[179]EI%[167]50300
  358. 50210 [153]" CMDCMD";
  359. 50220 A$[178][200](A$,[195](A$)[171]1)
  360. 50300 A$[178]A$[170]B$
  361. 50310 [153]B$;"_CMD";
  362. 50350 [137]50120
  363. 50400 [143] HEX IN DEZ (B$ IN B)
  364. 50410 A[178][171]1:[139][195](A$)[177]4[176][195](A$)[179]1[167][142]
  365. 50420 [129]X[178]1[164][195](A$)
  366. 50430 Z[178][198]([202](A$,X,1))
  367. 50440 [139]47[179]Z[175]Z[179]58[167]Z[178]Z[171]48:[137]50470
  368. 50450 [139]Z[179]65[176]Z[177]71[167]A[178][171]1:X[178]4:[130]:[142]
  369. 50460 Z[178]Z[171]55
  370. 50470 A[178]A[170]Z[172]16[174]([195](A$)[171]X)
  371. 50490 [130]:A[178]A[170]1:[142]
  372. 50500 [143] DEZ IN HEX (A IN A$)
  373. 50510 A$[178]"":[129]X[178]3[164]0[169][171]1:W[178][181](A[173]16[174]X)
  374. 50520 A[178]A[171]W[172]16[174]X:[139]W[177]9[167]W[178]W[170]7
  375. 50530 A$[178]A$[170][199](W[170]48)
  376. 50540 [130]:[142]
  377. 50600 [143] A ZULAESSIG ?
  378. 50610 [139]A[177]49151[175]A[179]57344[167]A[178]0
  379. 50620 [139]A[179]3[172]4096[176]A[177]65535[167]A[178]0
  380. 50640 [142]
  381. 50700 [143] AKTUELLE ADRESSE
  382. 50710 A[178][194](169)[170][194](170)[172]256:[153]
  383. 50720 [153]" EPROMADRESSE:";A;:[141]50500:[153]" = $";A$
  384. 50750 [142]
  385. 60000 :
  386.